Old Testament Foundatiosn with Philip Yancey/Old Testament Foundatiosn with Philip Yancey - Disc 1.iso/pc/data/m29.dir/00001_script movie.ls

Text File | 1996-09-06 | 738 b | 28 lines

on startMovie
  global gReferenceArticle, gOnIBM
  identifyPlatform()
end

on showArticle
  global gReferenceArticle, gOnIBM
  if gOnIBM then
    set mypath to the pathName & "rlibrary\" & gReferenceArticle
    set the textFont of field "article" to "Arial"
    set the textSize of field "article" to 12
  else
    set mypath to the pathName & "rlibrary:" & gReferenceArticle
    set the textFont of field "article" to "Geneva"
    set the textSize of field "article" to 12
  end if
  set gReadFile to FileIO(mnew, "read", mypath)
  if not objectp(gReadFile) then
    exit
  end if
  set myData to gReadFile(mReadFile)
  gReadFile(mdispose)
  put myData into field "article"
  pupSprites(1, 48, 0)
  updateStage()
  go("ShowArticle")
end